on rollTheWheel tell area "The Wheel" to set "rotate" to (the "rotate" of area "The Wheel" + 5) tell area "The Wheel" to set "left" to (the "left" of area "The Wheel" + 5) tell area "Wheel Road" to set "width" to (the "width" of area "Wheel Road" + 6.5) -- 6.5 ~ pi * 150 * 5/360 tell field "Circumference" to set "text" to (the "width" of area "Wheel Road" - 5) if the "rotate" of area "The Wheel" > 360 then set "stepping" to false tell area "The Wheel" to set "rotate" to 0 tell area "The Wheel" to set "left" to (the "left" of area "Wheel Road" - 75) tell area "Wheel Road" to set "width" to 5 end if end rollTheWheel

a Area